home *** CD-ROM | disk | FTP | other *** search
/ Games of Daze / Infomagic - Games of Daze (Summer 1995) (Disc 1 of 2).iso / x2ftp / msdos / iguana / incosrc / incosrc.exe / MIRRBALL / COLINC.PAS < prev    next >
Pascal/Delphi Source File  |  1993-06-16  |  810b  |  50 lines
  1.  
  2. CONST
  3.    Header:   STRING = 'Normal Palette';
  4.    OutFile:  STRING = 'normpal';
  5.    DataType: STRING = 'DB';
  6.    DataLen          = 3;
  7.  
  8. VAR
  9.    fo : TEXT;
  10.    fi : FILE;
  11.  
  12.    i, j, k  : INTEGER;
  13.  
  14.  
  15.  
  16. PROCEDURE DoNum(b: WORD);
  17. CONST
  18.    bc : INTEGER = 0;
  19.  
  20. BEGIN
  21.    IF bc = 0 THEN BEGIN
  22.       WriteLn(fo);
  23.       Write(fo, '        ',DataType, ' ', b: DataLen);
  24.    END ELSE
  25.       Write(fo, ',', b : DataLen);
  26.    bc := (bc + 1) MOD 12;
  27. END;
  28.  
  29.  
  30. VAR
  31.    pal : ARRAY [1..256*3] OF BYTE;
  32.  
  33.  
  34. BEGIN
  35.    Assign(fo, OutFile+'.inc');
  36.    ReWrite(fo);
  37.    WriteLn(fo, '; ----- ', Header, '. ------------');
  38.  
  39.    Assign(fi, {'iguana.pal'}'ball.col');
  40.    Reset(fi,1);
  41.    BlockRead(fi, pal, Sizeof(pal));
  42.    FOR i := 1 TO Sizeof(pal) DO
  43.       DoNum(pal[i]);
  44.  
  45.    Close(fi);
  46.    Close(fo)
  47. END.
  48.  
  49.  
  50.